object MainForm: TMainForm Left = 411 Top = 109 Width = 610 Height = 430 HelpContext = 200 Caption = 'PurgeIE - Purge Cache, Cookies and Tracks for Internet Explorer' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnKeyUp = FormKeyUp OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Panel2: TPanel Left = 0 Top = 385 Width = 602 Height = 18 Align = alBottom TabOrder = 0 OnClick = RegLabelClick object RegLabel: TLabel Left = 210 Top = 2 Width = 5 Height = 13 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False ShowAccelChar = False OnClick = RegLabelClick end object PanelGauge: TPanel Left = 1 Top = 2 Width = 200 Height = 14 TabOrder = 0 object LabGauge: TLabel Left = 0 Top = 1 Width = 100 Height = 13 AutoSize = False Color = clHighlight ParentColor = False end end end object Panel4: TPanel Left = 0 Top = 0 Width = 602 Height = 196 HelpContext = 200 Align = alTop TabOrder = 1 object ProtectSBtn: TSpeedButton Left = 95 Top = 6 Width = 74 Height = 25 Hint = 'View Cookies, Setup / Maintain a list of '#39'Protected'#39' Cookies, et' + 'c...' Caption = 'Protect' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777700000000000007770FFFFFFFFFFF07770F4F444444FF07770FFFFFFF0FFF 07770F4F444400FF07770FFFFFFF000F07770F4F4444000007770FFFFFFF0FB0 07770F4F444400FB07770FFFFFFFF0BF07770F4F4444400BF0770FFFFFFFFF0F B0770FFFFFFFFFF0090700000000000019077777777777770077} ParentFont = False ParentShowHint = False ShowHint = True OnClick = ProtectSBtnClick end object ExitSBtn: TSpeedButton Left = 520 Top = 6 Width = 74 Height = 25 Hint = 'Terminate Execution' Caption = 'Exit' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777770007777777777700050777777777000555077777777705555500077 7777705555508077777770555F80F077777770555550F077757770555550F077 557770555550F075555570555550F077557770555500F0777577705500FFF077 77777000FFFFF077777770000000007777777777777777777777} ParentFont = False ParentShowHint = False ShowHint = True OnClick = ExitSBtnClick end object PreviewSbtn: TSpeedButton Left = 180 Top = 6 Width = 74 Height = 25 Hint = 'Execute the Purge Function for the Selected Options without actu' + 'ally deleting data' Caption = 'Preview' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777700000000000077000FFFFFFFFFF070000FFFFFFF000080070FFFFFF08778 08770FFFFF0877E880770FFFFF07777870770FFFFF07E77870770FFFFF08EE78 80770FFFFFF0877807770FFFFFFF000077770FFFFFFFFFF077770FFFFFFF0000 77770FFFFFFF070777770FFFFFFF007777770000000007777777} ParentFont = False ParentShowHint = False ShowHint = True OnClick = PreviewSbtnClick end object StatsSBtn: TSpeedButton Left = 10 Top = 6 Width = 74 Height = 25 Hint = 'List Statistics for Cache and Cookie Disk Space Usage' Caption = 'Statistics' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777770000000000000770FFFFFFFFFFFFF070F0000000000 0F070FFFFFFFFFFFFF070F00000000000F070FFFFFFFFFFFFF070F0000000000 0F070FFFFFFFFFFFFF070F00000000000F070FFFFFFFFFFFFF070F0000000000 0F070FFFFFFFFFFFFF0770000000000000777777777777777777} ParentFont = False ParentShowHint = False ShowHint = True OnClick = StatsSBtnClick end object ConfigSBtn: TSpeedButton Left = 350 Top = 6 Width = 74 Height = 25 Hint = 'Select Options for Startup Execution and for '#39'Purge NOW'#39' Shortcu' + 't' Caption = 'Configure' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00108888888888 8888B1088888888888883B1088888888888813B1088888888888813B10888888 88888813B1088888888888813B1088880088888813B1088077088888813B1080 8F7088888813B1077880888888813078800888888888078F80888888888808FF 7088888800007FF7088888888078FF7088888888880000088888} ParentFont = False ParentShowHint = False ShowHint = True OnClick = ConfigSBtnClick end object PurgeAllSBtn: TSpeedButton Left = 265 Top = 6 Width = 74 Height = 25 Hint = 'Execute the Purge Function for the Selected Options' Caption = 'Purge' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777000000000 0777770F80F807808077770F80F807808077770F80F807808077770F80F80780 8077770F80F807808077770F80F807808077770F80F807808077770F80F80780 8077770F80F807808077770F80F8078080777000000000000007708888888888 880770FFFF777777770777000000000000777777770000777777} ParentFont = False ParentShowHint = False ShowHint = True OnClick = PurgeAllSBtnClick end object GroupBox1: TGroupBox Left = 2 Top = 32 Width = 598 Height = 160 Caption = 'Purge Options' TabOrder = 0 object Label1: TLabel Left = 160 Top = 18 Width = 24 Height = 13 Caption = 'Days' end object Label2: TLabel Left = 160 Top = 48 Width = 24 Height = 13 Caption = 'Days' end object Label3: TLabel Left = 220 Top = 18 Width = 28 Height = 13 Caption = 'Hours' end object Label4: TLabel Left = 220 Top = 48 Width = 28 Height = 13 Caption = 'Hours' end object Label5: TLabel Left = 284 Top = 18 Width = 112 Height = 13 Caption = 'Mins - since last access' end object Label6: TLabel Left = 284 Top = 48 Width = 112 Height = 13 Caption = 'Mins - since last access' end object Label7: TLabel Left = 96 Top = 16 Width = 27 Height = 13 Caption = '- over' end object Label8: TLabel Left = 96 Top = 46 Width = 27 Height = 13 Caption = '- over' end object SaveOptionsSBtn: TSpeedButton Left = 448 Top = 12 Width = 140 Height = 24 Hint = 'Save the Purge and Reports Options for next Execution' Caption = 'Save Purge Options' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777770000000000000770330000007703077033000000770307703300000077 0307703300000000030770333333333333077033000000003307703077777777 0307703077777777030770307777777703077030777777770307703077777777 0007703077777777070770000000000000077777777777777777} ParentShowHint = False ShowHint = True OnClick = SaveOptionsSBtnClick end object IEcaution: TLabel Left = 448 Top = 52 Width = 140 Height = 40 AutoSize = False Caption = 'Internet Explorer is active. The functions indicated in Yellow' + ' may not be effective.' Color = clYellow ParentColor = False Visible = False WordWrap = True end object CancelSbtn: TSpeedButton Left = 468 Top = 20 Width = 120 Height = 24 Hint = 'Cancel / Stop processing' Caption = ' Cancel / Stop' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 33333337777FF377FF3333993370739993333377FF373F377FF3399993000339 993337777F777F3377F3393999707333993337F77737333337FF993399933333 399377F3777FF333377F993339903333399377F33737FF33377F993333707333 399377F333377FF3377F993333101933399377F333777FFF377F993333000993 399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399 99333773FF777F777733339993707339933333773FF7FFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True Visible = False OnClick = CancelSbtnClick end object CheckBoxNormalCache: TCheckBox Left = 8 Top = 16 Width = 86 Height = 17 Hint = 'Purge Online (Standard / Non-Subscription) Cache over specified ' + 'time since last access' Caption = 'Online Cache' ParentShowHint = False ShowHint = True TabOrder = 0 end object CheckBoxSubscriptionCache: TCheckBox Left = 8 Top = 46 Width = 86 Height = 17 Hint = 'Purge Offline (Subscription) Cache over specified time since las' + 't access' Caption = 'Offline Cache' ParentShowHint = False ShowHint = True TabOrder = 1 end object NsDD: TEdit Left = 128 Top = 14 Width = 28 Height = 21 TabOrder = 10 Text = '0' end object NsHH: TEdit Left = 188 Top = 14 Width = 28 Height = 21 TabOrder = 11 Text = '0' end object NsMM: TEdit Left = 252 Top = 14 Width = 28 Height = 21 TabOrder = 12 Text = '0' end object SbDD: TEdit Left = 128 Top = 44 Width = 28 Height = 21 TabOrder = 13 Text = '0' end object SbHH: TEdit Left = 188 Top = 44 Width = 28 Height = 21 TabOrder = 14 Text = '0' end object SbMM: TEdit Left = 252 Top = 44 Width = 28 Height = 21 TabOrder = 15 Text = '0' end object CheckBoxHistory: TCheckBox Left = 306 Top = 78 Width = 89 Height = 17 Hint = 'Purge Internet History Folders. (Internet Explorer must not be ' + 'active for deletion of these directories)' Caption = 'History Folders' Color = clBtnFace ParentColor = False ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = Timer1Timer end object CheckBoxURLs: TCheckBox Left = 220 Top = 78 Width = 82 Height = 17 Hint = 'Purge Typed URLs (Address Dropdown List) from Registry' Caption = 'Typed URLs' Color = clBtnFace ParentColor = False ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = Timer1Timer end object CheckBoxRecent: TCheckBox Left = 8 Top = 102 Width = 84 Height = 17 Hint = 'Purge Links for Recent Files (Documents)' Caption = 'Recent LNKs' ParentShowHint = False ShowHint = True TabOrder = 6 end object CheckBoxCookies: TCheckBox Left = 8 Top = 78 Width = 121 Height = 17 Hint = 'Purge '#39'UnProtected'#39' Cookies' Caption = 'Unprotected Cookies' ParentShowHint = False ShowHint = True TabOrder = 2 end object CheckBoxVisited: TCheckBox Left = 134 Top = 78 Width = 83 Height = 17 Hint = 'Purge '#39'Visited'#39' URLs. These are used for AutoComplete' Caption = 'Visited URLs' ParentShowHint = False ShowHint = True TabOrder = 3 end object CheckBoxStrays: TCheckBox Left = 134 Top = 102 Width = 50 Height = 17 Hint = 'Purge Stray Cache and Cookie Files (files not in INDEX.DAT)' Caption = 'Strays' ParentShowHint = False ShowHint = True TabOrder = 7 end object ReportsRG1: TRadioGroup Left = 448 Top = 124 Width = 140 Height = 32 Hint = 'Select Detail or Summary Reports' Caption = 'Reports' Columns = 2 ItemIndex = 1 Items.Strings = ( 'Detail' 'Summary') ParentShowHint = False ShowHint = True TabOrder = 9 end object CheckBoxTemp: TCheckBox Left = 220 Top = 102 Width = 82 Height = 17 Hint = 'Purge all Files in the Windows Temp Folder - CAUTION - see note ' + 'in Help file' Caption = 'Temp Folder' ParentShowHint = False ShowHint = True TabOrder = 8 end object GroupBox2: TGroupBox Left = 2 Top = 124 Width = 430 Height = 32 Hint = 'Options in this block require IE-5, or higher' Caption = 'IE-5 or IE-6' ParentShowHint = False ShowHint = True TabOrder = 16 object CheckBoxClearPreviousSearches: TCheckBox Left = 6 Top = 12 Width = 145 Height = 17 Hint = 'Clear Previous Search data for IE-5, or higher' Caption = 'Clear Previous Searches' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 0 end object CheckBoxClearAutoCompleteForms: TCheckBox Left = 150 Top = 12 Width = 180 Height = 17 Hint = 'Clear AutoComplete Forms via I.E. for IE-5, or higher' Caption = 'Clear AutoComplete Forms via I.E.' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 1 end object CheckBoxUserData: TCheckBox Left = 340 Top = 12 Width = 72 Height = 17 Hint = 'Clear the IE UserData folder data for IE-5, or higher' Caption = 'UserData' Enabled = False TabOrder = 2 end end object RecyclePanel: TPanel Left = 304 Top = 101 Width = 80 Height = 19 Hint = 'Empty Recycle Bin Option is only available on Newer Systems - Se' + 'e Help' BevelOuter = bvNone ParentShowHint = False ShowHint = True TabOrder = 17 object CheckBoxReCycle: TCheckBox Left = 2 Top = 1 Width = 78 Height = 17 Hint = 'Empty Recycle Bin' Caption = 'Recycle Bin' ParentShowHint = False ShowHint = True TabOrder = 0 end end object LineHoriz1: TPanel Left = 0 Top = 39 Width = 420 Height = 2 TabOrder = 18 end object LineHoriz2: TPanel Left = 0 Top = 70 Width = 420 Height = 2 TabOrder = 19 end object LineVert1: TPanel Left = 418 Top = 6 Width = 2 Height = 66 TabOrder = 20 end object AllOnBtn: TButton Left = 448 Top = 100 Width = 66 Height = 22 Hint = 'Click to set all Options '#39'On'#39 Caption = 'Set All '#39'On'#39 ParentShowHint = False ShowHint = True TabOrder = 21 OnClick = AllOnBtnClick end object AllOffBtn: TButton Left = 520 Top = 100 Width = 66 Height = 22 Hint = 'Click to set all Options '#39'Off'#39 Caption = 'Set All '#39'Off'#39 ParentShowHint = False ShowHint = True TabOrder = 22 OnClick = AllOffBtnClick end end object HelpSbitbtn: TBitBtn Left = 435 Top = 6 Width = 74 Height = 25 Hint = 'Access Help File, Registration, About Box' Caption = 'Help' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False PopupMenu = PopupHelp1 ShowHint = True TabOrder = 1 OnMouseDown = HelpSbtnMouseDown Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777700077 777777777005580777777770055FF780777770055FF007780777855FF0055077 807785F00555550778078005553B55507780855555535555070775F55555BB55 5007775F555553BB55077775F55535BB555077775F55BBB55500777775F55555 00777777775F5500777777777775507777777777777777777777} end end object ListView0: TListView Left = 0 Top = 196 Width = 602 Height = 189 Align = alClient Columns = < item Width = 6 WidthType = ( -1) end> ReadOnly = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ShowColumnHeaders = False TabOrder = 2 ViewStyle = vsReport end object CopyMemo1: TMemo Left = 520 Top = 384 Width = 73 Height = 33 Lines.Strings = ( 'CopyMemo1') ReadOnly = True TabOrder = 3 Visible = False WordWrap = False end object PopupHelp1: TPopupMenu AutoPopup = False Left = 311 Top = 66 object PuHelp: TMenuItem Caption = 'Help File Contents' Default = True Hint = 'This passes control to the Help file.' OnClick = PuHelpClick end object puDispDirs: TMenuItem Caption = 'Display Directories' Hint = 'Display Directories on this computer for Cache, Cookies, etc' OnClick = puDispDirsClick end object puWebPage: TMenuItem Caption = 'Vendor Web Page' Hint = 'This passes control to the Vendor'#39's Web Page. Your Internet con' + 'nection must be available.' OnClick = puWebPageClick end object puRegistration: TMenuItem Caption = 'Purchase License - Register' Hint = 'Pass control to the Registration Window.' OnClick = puRegistrationClick end object puCheckforNewerVersion: TMenuItem Caption = 'Check for Newer Version' OnClick = puCheckforNewerVersionClick end object puPurgInx: TMenuItem Caption = 'Purge I.E. Folders at next Reboot' Hint = 'Creates a RunOnce file to Purge I.E. Folders at next Reboot' OnClick = puPurgInxClick end object puCopyClipboard: TMenuItem Caption = 'Copy Display to ClipBoard' Hint = 'Copy Display List to Windows ClipBoard' OnClick = puCopyClipboardClick end object PuAbout: TMenuItem Caption = 'About PurgeIE' Hint = 'Passes control to the About Window.' OnClick = PuAboutClick end end object Timer1: TTimer Enabled = False Interval = 2500 OnTimer = Timer1Timer Left = 354 Top = 64 end end